submodule(h5fortran:hdf5_read) reader_lt

implicit none(type, external)

contains

module procedure h5exist

type(hdf5_file) :: h

call h%open(filename, action='r')
h5exist = h%exist(dname)
call h%close()

end procedure h5exist

module procedure lt0read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt0read

module procedure lt1read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt1read

module procedure lt2read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt2read

module procedure lt3read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt3read

module procedure lt4read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt4read

module procedure lt5read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt5read

module procedure lt6read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt6read

module procedure lt7read
type(hdf5_file) :: h

call h%open(filename, action='r')
call h%read(dname, value)
call h%close()

end procedure lt7read

end submodule reader_lt
